From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Feb 2009 04:01:02 +0000 (+0000)
Subject: (rmail-show-message-verbose-min): New option.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~1860
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a2b59deb24769e70f04adde5f0b18ee285803a9f;p=emacs.git

(rmail-show-message-verbose-min): New option.
(rmail-show-message): Conditionally show start and finish in echo area.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 537c404f513..e54fd01460d 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2503,6 +2503,11 @@ N defaults to the current message."
       (or (not content-type-header)
 	  (string-match text-regexp content-type-header)))))
 
+(defcustom rmail-show-message-verbose-min 200000
+  "Message size at which to show progress messages for displaying it."
+  :type 'integer
+  :group 'rmail)
+
 (defun rmail-show-message (&optional msg)
   "Show message MSG (default: current message) using `rmail-view-buffer'.
 Return text to display in the minibuffer if MSG is out of
@@ -2532,6 +2537,8 @@ The current mail message becomes the message displayed."
 	(rmail-swap-buffers-maybe)
 	(setq beg (rmail-msgbeg msg)
 	      end (rmail-msgend msg))
+	(when (> (- end beg) rmail-show-message-verbose-min)
+	  (message "Showing message %d" msg))
 	(narrow-to-region beg end)
 	(goto-char beg)
 	(setq body-start (search-forward "\n\n" nil t))
@@ -2598,7 +2605,9 @@ The current mail message becomes the message displayed."
 	(rmail-display-labels)
 	(rmail-swap-buffers)
 	(setq rmail-buffer-swapped t)
-	(run-hooks 'rmail-show-message-hook)))
+	(run-hooks 'rmail-show-message-hook)
+	(when (> (- end beg) rmail-show-message-verbose-min)
+	  (message "Showing message %d...done" msg))))
     blurb))
 
 (defun rmail-copy-headers (beg end &optional ignored-headers)